home *** CD-ROM | disk | FTP | other *** search
/ Precision Software Appli…tions Silver Collection 1 / Precision Software Applications Silver Collection Volume One (PSM) (1993).iso / children / primary.exe / MATHBAS.ZIP / TEACHKID.BAS < prev    next >
BASIC Source File  |  1985-05-13  |  2KB  |  67 lines
  1. 10 ' This program will help your little one learn the letters of the
  2. 20 ' alphabet.  Work with them as they go through each letter.  The
  3. 30 ' program will display all the letters on the screen and then flash
  4. 40 ' one.  Have your little one find the key.  They will be rewarded
  5. 50 ' with a "bright" musical tone if the correct key was pushed.
  6. 60 ' Program written by D.G. Maley, Cedar Rapids,Ia.
  7. 70 KEY OFF: CLS
  8. 80 DATA A,13,4
  9. 90 DATA B,13,8
  10. 100 DATA C,13,12
  11. 110 DATA D,13,16
  12. 120 DATA E,13,20
  13. 130 DATA F,13,24
  14. 140 DATA G,13,28
  15. 150 DATA H,13,32
  16. 160 DATA I,13,36
  17. 170 DATA J,13,40
  18. 180 DATA K,13,44
  19. 190 DATA L,13,48
  20. 200 DATA M,13,52
  21. 210 DATA N,16,4
  22. 220 DATA O,16,8
  23. 230 DATA P,16,12
  24. 240 DATA Q,16,16
  25. 250 DATA R,16,20
  26. 260 DATA S,16,24
  27. 270 DATA T,16,28
  28. 280 DATA U,16,32
  29. 290 DATA V,16,36
  30. 300 DATA W,16,40
  31. 310 DATA X,16,44
  32. 320 DATA Y,16,48
  33. 330 DATA Z,16,52
  34. 340 DIM LETTER$(26),ROW(26),COLUMN(26)
  35. 350 RANDOMIZE TIMER
  36. 360 FOR K = 0 TO 25
  37. 370 READ LETTER$(K), ROW(K), COLUMN(K)
  38. 380 NEXT
  39. 390 COLOR 7
  40. 400 FOR K = 0 TO 25
  41. 410 LOCATE ROW(K),COLUMN(K),0: PRINT LETTER$(K)
  42. 420 TEMP1 = TIMER: TEMP1 = TEMP1 + 1
  43. 430 IF TIMER < TEMP1 THEN 430
  44. 440 NEXT
  45. 450 K = INT(26*RND(1))
  46. 460 COLOR 31
  47. 470 LOCATE ROW(K),COLUMN(K),0: PRINT LETTER$(K)
  48. 480 COLOR 7
  49. 490 LOCATE 18,4,0
  50. 500 ANS$ = INKEY$: IF ANS$ = "" THEN 500
  51. 510 IF ANS$ = LETTER$(K) THEN 560
  52. 520 SOUND 440,5
  53. 530 SOUND 100,5
  54. 540 GOSUB 630
  55. 550 GOTO 460
  56. 560 FOR T = 1 TO 3
  57. 570 FOR L = 500 TO 5000 STEP 500
  58. 580 SOUND L,1
  59. 590 NEXT
  60. 600 NEXT
  61. 610 GOSUB 630
  62. 620 GOTO 450
  63. 630 LOCATE ROW(K),COLUMN(K),0: PRINT LETTER$(K)
  64. 640 TEMP2 = TIMER: TEMP2 = TEMP2 +1.5
  65. 650 IF TIMER < TEMP2 THEN 650
  66. 660 RETURN
  67.